prolog './gsp410.ijs'
NB. ! -------------------------------------------------------------------

(scheck ! $.x), (! -: !&.$.) x=:     _10+?    405$2
(scheck ! $.x), (! -: !&.$.) x=:     _10+?  3 4 5$21
(scheck ! $.x), (! -: !&.$.) x=:   o._10+?  3 4 5$21
(scheck ! $.x), (! -: !&.$.) x=:j./o._10+?2 3 4 5$21

1 -: 3 $. ! $. 0 1 0
1 -: 3 $. ! $. 2 3 4
1 -: 3 $. ! $. 2 3.4
1 -: 3 $. ! $. 2 3j4

(!e) -: 3 $. ! (3;e=:   ?20   ) $. $. 1 2 3
(!e) -: 3 $. ! (3;e=:o. ?5    ) $. $. 1 2 3
(!e) -: 3 $. ! (3;e=:j./?10 10) $. $. 1 2 3

f=: 4 : '(p!q) -: ((2;x)$.p) ! (2;y)$.q'

p=: ?7 5 3$2
q=: ?7 5 3$2
c=: ; (i.1+r) <"1@comb&.>r=:#$p
f&>/~c

p=: ?7 5 3$4
q=: ?7 5 3$4
c=: ; (i.1+r) <"1@comb&.>r=:#$p
f&>/~c

p=: o.?7 5 3$4
q=: o.?7 5 3$4
c=: ; (i.1+r) <"1@comb&.>r=:#$p
f&>/~c

p=: j./?2 5 3 2$4
q=: j./?2 5 3 2$4
c=: ; (i.1+r) <"1@comb&.>r=:#$p
f&>/~c





epilog''

